'======================================================
  Set OBJ = CreateObject("ActivCard.Authority")

  msgbox OBJ.GetRoles( sRoles )
  msgbox sRoles

  Set OBJ = Nothing